<!-- Start Side Menu -->

		<div>
			<!--
			<div name="MenuHead" id=MenuHead" style="FLOAT: left;"><a href="Default.asp"><img src="images/logohome.gif" alt="Redemptorist Retreat Center" name="Image20" border="0" onMouseOver="HiLite();" onMouseOut="Normal();" WIDTH="152" HEIGHT="137"></a></div>
			-->
			<%
				'Const ForReading = 1, ForWriting = 2
				Dim fsoMenu, MyMenuFile
				Dim RawData, MenuFileData, MenuFileName
							
				MenuFileName=Server.MapPath("text/buttonmenu.txt")
				Set fsoMenu = CreateObject("Scripting.FileSystemObject")
				Set MyMenuFile = fsoMenu.OpenTextFile(MenuFileName, 1)
				
				
				' Read the retreat categories from the buttontext file
				' then create the buttons for the menu
				Do While Not(MyMenuFile.AtEndOfStream)
					RawData = MyMenuFile.ReadLine
					If Left(RawData,1) <> ";" Then
						MenuFileData = Split(RawData, "|")
						Response.Write"<div name='ButtonDiv' id='buttondiv'>"
						Response.Write"<table border=0><tr><td height=42px valign=middle align=center>"
						If MenuFileData(0) = "1" Then
							Response.Write "<A href='" & MenuFileData(2) & "'>" & Trim(MenuFileData(1)) & "</a>"
						End If
						
						If MenuFileData(0) = "2" Then
							Response.Write"<a href='Nav_Dynamic.asp?RCat=" & server.URLEncode(Trim(MenuFileData(2))) & "'>" & Trim(MenuFileData(1)) & "</a>"
						End If
						
						If MenuFileData(0) = "3" Then
							Response.Write "<A href='" & MenuFileData(2) & "' target='new'>" & Trim(MenuFileData(1)) & "</a>"
						End If
						Response.Write"</td></tr></table></div>"
					End If
				Loop
				MyMenuFile.Close
				Set fso = Nothing
							
			%>
			
			
		</div>
<!-- End Side Menu -->
